/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_7 / issue_08 / basicforum / TS_RO3

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 09 d1 20 3d 20 | 30 0d 00 02 3b f2 53 63 |..... = |0...;.Sc|
|00000010| 61 6e 54 65 6d 70 6c 61 | 74 65 46 69 6c 65 28 22 |anTempla|teFile("|
|00000020| 54 65 6d 70 6c 61 74 65 | 73 22 2c 62 75 66 66 5f |Template|s",buff_|
|00000030| 73 69 7a 65 25 2c 6e 72 | 5f 74 65 6d 70 6c 61 74 |size%,nr|_templat|
|00000040| 65 73 25 29 0d 00 03 4a | f1 20 22 42 75 66 66 65 |es%)...J|. "Buffe|
|00000050| 72 20 73 69 7a 65 20 72 | 65 71 75 69 72 65 64 20 |r size r|equired |
|00000060| 3d 20 22 20 2b 20 c3 62 | 75 66 66 5f 73 69 7a 65 |= " + .b|uff_size|
|00000070| 25 20 2b 20 22 20 28 26 | 22 20 2b 20 c3 7e 62 75 |% + " (&|" + .~bu|
|00000080| 66 66 5f 73 69 7a 65 25 | 20 2b 20 22 29 22 0d 00 |ff_size%| + ")"..|
|00000090| 04 30 f1 20 22 4e 75 6d | 62 65 72 20 6f 66 20 74 |.0. "Num|ber of t|
|000000a0| 65 6d 70 6c 61 74 65 73 | 20 20 3d 20 22 20 2b 20 |emplates|  = " + |
|000000b0| c3 6e 72 5f 74 65 6d 70 | 6c 61 74 65 73 25 0d 00 |.nr_temp|lates%..|
|000000c0| 05 20 f1 20 22 54 69 6d | 65 20 3a 20 22 2b c3 28 |. . "Tim|e : "+.(|
|000000d0| 91 2f 31 30 30 29 2b 22 | 20 73 65 63 73 22 0d 00 |./100)+"| secs"..|
|000000e0| 06 05 e0 0d 00 07 04 0d | 00 08 3f dd 20 f2 53 63 |........|..?. .Sc|
|000000f0| 61 6e 54 65 6d 70 6c 61 | 74 65 46 69 6c 65 28 66 |anTempla|teFile(f|
|00000100| 69 6c 65 6e 61 6d 65 24 | 2c f8 20 62 75 66 66 5f |ilename$|,. buff_|
|00000110| 73 69 7a 65 25 2c f8 20 | 6e 72 5f 74 65 6d 70 6c |size%,. |nr_templ|
|00000120| 61 74 65 73 25 29 0d 00 | 09 35 ea 20 70 6f 73 25 |ates%)..|.5. pos%|
|00000130| 2c 74 6f 74 61 6c 5f 69 | 6e 64 69 72 73 69 7a 65 |,total_i|ndirsize|
|00000140| 25 2c 6c 61 72 67 65 73 | 74 5f 64 65 66 25 2c 66 |%,larges|t_def%,f|
|00000150| 69 6c 65 5f 6f 66 66 73 | 65 74 25 0d 00 0a 0b ea |ile_offs|et%.....|
|00000160| 20 62 75 66 66 25 0d 00 | 0b 2d ea 20 63 74 72 25 | buff%..|.-. ctr%|
|00000170| 2c 63 68 61 72 25 2c 6f | 6c 64 5f 70 74 72 25 2c |,char%,o|ld_ptr%,|
|00000180| 6e 72 5f 69 63 6f 6e 73 | 25 2c 6a 25 2c 66 6c 61 |nr_icons|%,j%,fla|
|00000190| 67 73 25 0d 00 0c 42 f4 | 20 52 65 74 75 72 6e 73 |gs%...B.| Returns|
|000001a0| 20 74 68 65 20 73 69 7a | 65 20 6f 66 20 74 68 65 | the siz|e of the|
|000001b0| 20 62 75 66 66 65 72 20 | 6e 65 65 64 65 64 20 62 | buffer |needed b|
|000001c0| 79 20 22 57 69 6d 70 5f | 4c 6f 61 64 54 65 6d 70 |y "Wimp_|LoadTemp|
|000001d0| 6c 61 74 65 22 0d 00 0d | 2d f4 20 61 6e 64 20 74 |late"...|-. and t|
|000001e0| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 74 65 6d |he numbe|r of tem|
|000001f0| 70 6c 61 74 65 73 20 69 | 6e 20 74 68 65 20 66 69 |plates i|n the fi|
|00000200| 6c 65 0d 00 0e 44 70 6f | 73 25 20 3d 20 30 3a 6e |le...Dpo|s% = 0:n|
|00000210| 72 5f 74 65 6d 70 6c 61 | 74 65 73 25 20 3d 20 30 |r_templa|tes% = 0|
|00000220| 3a 74 6f 74 61 6c 5f 69 | 6e 64 69 72 73 69 7a 65 |:total_i|ndirsize|
|00000230| 25 20 3d 20 30 3a 6c 61 | 72 67 65 73 74 5f 64 65 |% = 0:la|rgest_de|
|00000240| 66 25 20 3d 20 30 0d 00 | 0f 1a 62 75 66 66 25 20 |f% = 0..|..buff% |
|00000250| 3d 20 a4 5f 68 65 61 70 | 5f 67 65 74 28 31 33 29 |= ._heap|_get(13)|
|00000260| 0d 00 10 25 c8 99 20 22 | 57 69 6d 70 5f 4f 70 65 |...%.. "|Wimp_Ope|
|00000270| 6e 54 65 6d 70 6c 61 74 | 65 22 2c 2c 66 69 6c 65 |nTemplat|e",,file|
|00000280| 6e 61 6d 65 24 0d 00 11 | 05 f5 0d 00 12 12 20 20 |name$...|......  |
|00000290| 24 62 75 66 66 25 20 3d | 20 22 2a 22 0d 00 13 30 |$buff% =| "*"...0|
|000002a0| 20 20 f4 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |  . the |followin|
|000002b0| 67 20 6f 6e 6c 79 20 77 | 6f 72 6b 73 20 6f 6e 20 |g only w|orks on |
|000002c0| 52 49 53 43 20 4f 53 20 | 33 2e 2e 2e 0d 00 14 4f |RISC OS |3......O|
|000002d0| 20 20 c8 99 20 22 57 69 | 6d 70 5f 4c 6f 61 64 54 |  .. "Wi|mp_LoadT|
|000002e0| 65 6d 70 6c 61 74 65 22 | 2c 2c 2d 31 2c 2c 2c 2c |emplate"|,,-1,,,,|
|000002f0| 62 75 66 66 25 2c 70 6f | 73 25 20 b8 20 2c 62 75 |buff%,po|s% . ,bu|
|00000300| 66 66 5f 73 69 7a 65 25 | 2c 69 6e 64 69 72 73 69 |ff_size%|,indirsi|
|00000310| 7a 65 25 2c 2c 2c 2c 70 | 6f 73 25 0d 00 15 13 20 |ze%,,,,p|os%.... |
|00000320| 20 e7 20 70 6f 73 25 20 | 3c 3e 20 30 20 8c 0d 00 | . pos% |<> 0 ...|
|00000330| 16 3f 20 20 20 20 e7 20 | 62 75 66 66 5f 73 69 7a |.?    . |buff_siz|
|00000340| 65 25 20 3e 20 6c 61 72 | 67 65 73 74 5f 64 65 66 |e% > lar|gest_def|
|00000350| 25 20 8c 20 6c 61 72 67 | 65 73 74 5f 64 65 66 25 |% . larg|est_def%|
|00000360| 20 3d 20 62 75 66 66 5f | 73 69 7a 65 25 0d 00 17 | = buff_|size%...|
|00000370| 26 20 20 20 20 74 6f 74 | 61 6c 5f 69 6e 64 69 72 |&    tot|al_indir|
|00000380| 73 69 7a 65 25 20 2b 3d | 20 69 6e 64 69 72 73 69 |size% +=| indirsi|
|00000390| 7a 65 25 0d 00 18 1a 20 | 20 20 20 6e 72 5f 74 65 |ze%.... |   nr_te|
|000003a0| 6d 70 6c 61 74 65 73 25 | 20 2b 3d 20 31 0d 00 19 |mplates%| += 1...|
|000003b0| 07 20 20 cd 0d 00 1a 0e | fd 20 70 6f 73 25 20 3d |.  .....|. pos% =|
|000003c0| 20 30 0d 00 1b 1b c8 99 | 20 22 57 69 6d 70 5f 43 | 0......| "Wimp_C|
|000003d0| 6c 6f 73 65 54 65 6d 70 | 6c 61 74 65 22 0d 00 1c |loseTemp|late"...|
|000003e0| 30 62 75 66 66 5f 73 69 | 7a 65 25 20 3d 20 6c 61 |0buff_si|ze% = la|
|000003f0| 72 67 65 73 74 5f 64 65 | 66 25 20 2b 20 74 6f 74 |rgest_de|f% + tot|
|00000400| 61 6c 5f 69 6e 64 69 72 | 73 69 7a 65 25 0d 00 1d |al_indir|size%...|
|00000410| 19 f2 5f 68 65 61 70 5f | 72 65 6c 65 61 73 65 28 |.._heap_|release(|
|00000420| 62 75 66 66 25 29 0d 00 | 1e 05 e1 0d 00 1f 04 0d |buff%)..|........|
|00000430| 00 20 17 dd 20 a4 5f 68 | 65 61 70 5f 67 65 74 28 |. .. ._h|eap_get(|
|00000440| 73 69 7a 65 25 29 0d 00 | 21 17 ea 20 70 74 72 25 |size%)..|!.. ptr%|
|00000450| 2c 68 65 61 70 25 2c 66 | 6c 61 67 73 25 0d 00 22 |,heap%,f|lags%.."|
|00000460| 3c f4 20 52 65 74 75 72 | 6e 73 20 70 6f 69 6e 74 |<. Retur|ns point|
|00000470| 65 72 20 74 6f 20 6e 65 | 77 20 6d 65 6d 6f 72 79 |er to ne|w memory|
|00000480| 20 62 6c 6f 63 6b 20 75 | 6e 6c 65 73 73 20 63 6c | block u|nless cl|
|00000490| 61 69 6d 20 66 61 69 6c | 73 0d 00 23 22 f4 20 69 |aim fail|s..#". i|
|000004a0| 6e 20 77 68 69 63 68 20 | 63 61 73 65 20 2d 31 20 |n which |case -1 |
|000004b0| 69 73 20 72 65 74 75 72 | 6e 65 64 0d 00 24 27 f4 |is retur|ned..$'.|
|000004c0| 20 46 69 72 73 74 20 66 | 69 6e 64 20 73 74 61 72 | First f|ind star|
|000004d0| 74 20 61 64 64 72 65 73 | 73 20 6f 66 20 52 4d 41 |t addres|s of RMA|
|000004e0| 2e 2e 0d 00 25 25 c8 99 | 20 22 4f 53 5f 52 65 61 |....%%..| "OS_Rea|
|000004f0| 64 44 79 6e 61 6d 69 63 | 41 72 65 61 22 2c 31 20 |dDynamic|Area",1 |
|00000500| b8 20 68 65 61 70 25 0d | 00 26 40 f4 20 4e 6f 77 |. heap%.|.&@. Now|
|00000510| 20 63 6c 61 69 6d 20 6d | 65 6d 6f 72 79 2c 20 74 | claim m|emory, t|
|00000520| 72 61 70 70 69 6e 67 20 | 65 72 72 6f 72 73 20 62 |rapping |errors b|
|00000530| 79 20 75 73 69 6e 67 20 | 58 20 66 6f 72 6d 20 6f |y using |X form o|
|00000540| 66 20 53 57 49 2e 2e 0d | 00 27 2d c8 99 20 22 58 |f SWI...|.'-.. "X|
|00000550| 4f 53 5f 4d 6f 64 75 6c | 65 22 2c 36 2c 2c 2c 73 |OS_Modul|e",6,,,s|
|00000560| 69 7a 65 25 20 b8 20 2c | 2c 70 74 72 25 3b 66 6c |ize% . ,|,ptr%;fl|
|00000570| 61 67 73 25 0d 00 28 42 | f4 20 49 66 20 65 72 72 |ags%..(B|. If err|
|00000580| 6f 72 20 6f 63 63 75 72 | 65 64 20 72 65 74 75 72 |or occur|ed retur|
|00000590| 6e 20 2d 31 2c 20 65 6c | 73 65 20 72 65 74 75 72 |n -1, el|se retur|
|000005a0| 6e 20 61 64 64 72 65 73 | 73 20 6f 66 20 61 6c 6c |n addres|s of all|
|000005b0| 6f 63 61 74 65 64 0d 00 | 29 0b f4 20 62 6c 6f 63 |ocated..|).. bloc|
|000005c0| 6b 0d 00 2a 1e e7 20 28 | 66 6c 61 67 73 25 20 80 |k..*.. (|flags% .|
|000005d0| 20 31 29 20 8c 20 70 74 | 72 25 20 3d 20 2d 31 0d | 1) . pt|r% = -1.|
|000005e0| 00 2b 0a 3d 20 70 74 72 | 25 0d 00 2c 04 0d 00 2d |.+.= ptr|%..,...-|
|000005f0| 1c dd 20 f2 5f 68 65 61 | 70 5f 72 65 6c 65 61 73 |.. ._hea|p_releas|
|00000600| 65 28 f8 20 70 74 72 25 | 29 0d 00 2e 1e ea 20 6d |e(. ptr%|)..... m|
|00000610| 61 78 66 72 65 65 25 2c | 6e 72 70 61 67 65 73 25 |axfree%,|nrpages%|
|00000620| 2c 66 6c 61 67 73 25 0d | 00 2f 25 f4 20 52 65 74 |,flags%.|./%. Ret|
|00000630| 75 72 6e 73 20 20 30 20 | 69 66 20 62 6c 6f 63 6b |urns  0 |if block|
|00000640| 20 72 65 6c 65 61 73 65 | 64 20 4f 4b 0d 00 30 3f | release|d OK..0?|
|00000650| f4 20 52 65 74 75 72 6e | 73 20 2d 31 20 69 66 20 |. Return|s -1 if |
|00000660| 6f 70 65 72 61 74 69 6f | 6e 20 66 61 69 6c 65 64 |operatio|n failed|
|00000670| 20 28 69 2e 65 2e 20 62 | 6c 6f 63 6b 20 64 6f 65 | (i.e. b|lock doe|
|00000680| 73 6e 27 74 20 65 78 69 | 73 74 29 0d 00 31 36 c8 |sn't exi|st)..16.|
|00000690| 99 20 22 58 4f 53 5f 4d | 6f 64 75 6c 65 22 2c 37 |. "XOS_M|odule",7|
|000006a0| 2c 2c 70 74 72 25 20 b8 | 20 3b 66 6c 61 67 73 25 |,,ptr% .| ;flags%|
|000006b0| 3a f4 20 46 72 65 65 20 | 74 68 65 20 62 6c 6f 63 |:. Free |the bloc|
|000006c0| 6b 0d 00 32 18 e7 20 28 | 66 6c 61 67 73 25 20 80 |k..2.. (|flags% .|
|000006d0| 20 31 29 20 3d 20 30 20 | 8c 0d 00 33 2a 20 20 f4 | 1) = 0 |...3*  .|
|000006e0| 20 42 6c 6f 63 6b 20 77 | 61 73 20 72 65 6c 65 61 | Block w|as relea|
|000006f0| 73 65 64 20 73 75 63 63 | 65 73 73 66 75 6c 6c 79 |sed succ|essfully|
|00000700| 2e 2e 2e 0d 00 34 0e 20 | 20 70 74 72 25 20 3d 20 |.....4. | ptr% = |
|00000710| 30 0d 00 35 05 cc 0d 00 | 36 4a 20 20 f4 20 45 72 |0..5....|6J  . Er|
|00000720| 72 6f 72 20 6f 63 63 75 | 72 65 64 20 74 72 79 69 |ror occu|red tryi|
|00000730| 6e 67 20 74 6f 20 66 72 | 65 65 20 74 68 65 20 62 |ng to fr|ee the b|
|00000740| 6c 6f 63 6b 2c 20 72 65 | 74 75 72 6e 20 2d 31 20 |lock, re|turn -1 |
|00000750| 74 6f 20 73 69 67 6e 61 | 6c 20 74 6f 20 74 68 65 |to signa|l to the|
|00000760| 0d 00 37 4c 20 20 f4 20 | 70 72 6f 67 72 61 6d 20 |..7L  . |program |
|00000770| 74 68 61 74 20 73 6f 6d | 65 74 68 69 6e 67 20 77 |that som|ething w|
|00000780| 65 6e 74 20 77 72 6f 6e | 67 20 28 6e 6f 72 6d 61 |ent wron|g (norma|
|00000790| 6c 6c 79 20 74 68 65 20 | 70 72 6f 67 72 61 6d 20 |lly the |program |
|000007a0| 77 6f 75 6c 64 20 69 67 | 6e 6f 72 65 0d 00 38 14 |would ig|nore..8.|
|000007b0| 20 20 f4 20 74 68 69 73 | 20 61 6e 79 77 61 79 29 |  . this| anyway)|
|000007c0| 0d 00 39 0f 20 20 70 74 | 72 25 20 3d 20 2d 31 0d |..9.  pt|r% = -1.|
|000007d0| 00 3a 05 cd 0d 00 3b 05 | e1 0d ff                |.:....;.|...     |
+--------+-------------------------+-------------------------+--------+--------+